<%@ language=VBScript %>
<%
if Request("menu") = "login" then
call login()
elseif Request("menu") = "logout" then
call logout()
else call index()
end if
sub index()
%>
<%=gbook_name%>
<%
call htmlend()
end sub
sub login()
password = Request.form("password")
save = Request.form("save")
if password <> passwords then
message=message&"您的管理口令不正确!\n"
end if
if message <> "" then
call error(""&message&"")
Response.end
end if
if save <> "" then
Response.cookies("password") = password
Response.cookies("save") = save
else
Response.cookies("password") = ""
Response.cookies("save") = ""
end if
Response.cookies("admin") = password
Response.redirect "administer.asp?userid="&userid
end sub
sub logout()
Response.cookies("admin") = ""
Response.cookies("password") = ""
Response.cookies("save") = ""
Response.redirect "index.asp?userid="&userid
end sub
%>